(* %filename% -- dialog *)
(* Created %date% %time% by AppMaker *)

DEFINITION MODULE U%dlogname%;

FROM Types IMPORT
	INT16, Str255;
FROM UMacApp IMPORT
	TView, TWindow;
FROM UDialog IMPORT
	TDialogView;
%for each item gen defImports%

(*${QINSPECTOR*)
FROM UMacAppUtilities IMPORT
	DoToFieldMETHOD;
(*$}*)

TYPE
	T%dlogname% = OBJECT (TDialogView)
		OVERRIDE METHOD DoChoice (origView:	TView; itsChoice: INT16);

	(*${QINSPECTOR*)
		OVERRIDE METHOD Fields (DoToField:	DoToFieldMETHOD);
	(*$}*)
	END(*T%dlogname%*);
	%for each item gen classDecl%

(*----------*)
%if modeless%
	PROCEDURE  New%dlogname% (): TWindow;
%else%
	PROCEDURE Do%dlogname%;
%endif%

END U%dlogname%.